home *** CD-ROM | disk | FTP | other *** search
/ Postcard CD: Toronto / Postcard CD: Toronto (2004).iso / mac / PCDSS / TO2Binary.dcr / Internal_30.ls < prev    next >
Encoding:
Text File  |  2002-01-04  |  569 b   |  35 lines
  1. global first, S2, S1, L, myTimer
  2.  
  3. on keyDown
  4.   halt()
  5. end
  6.  
  7. on exitFrame me
  8.   if the mouseH <> L then
  9.     halt()
  10.   end if
  11.   if first = 1 then
  12.     S2 = 1
  13.   end if
  14.   if (myTimer < 33) and (first = 0) then
  15.     set the blend of sprite 2 to 100 - (myTimer * 3)
  16.   end if
  17.   if the blend of sprite 2 < 5 then
  18.     sprite(2).visible = 0
  19.   end if
  20.   if (myTimer > 33) and (S2 = 1) then
  21.     set2()
  22.     S2 = 0
  23.   end if
  24.   if myTimer > 180 then
  25.     myTimer = 0
  26.     sprite(2).visible = 1
  27.     first = 0
  28.     S1 = 1
  29.     go(4)
  30.   else
  31.     myTimer = myTimer + 1
  32.     go(the frame)
  33.   end if
  34. end
  35.